object Form1: TForm1
  Left = 343
  Top = 217
  Width = 870
  Height = 500
  Caption = 'Form1'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  OldCreateOrder = False
  PixelsPerInch = 96
  TextHeight = 13
  object frPreview1: TfrPreview
    Left = 0
    Top = 0
    Width = 854
    Height = 464
    Align = alClient
    BevelOuter = bvLowered
    Caption = 'frPreview1'
    TabOrder = 1
    ScrollBars = ssBoth
    object frToolBar1: TfrToolBar
      Left = 1
      Top = 1
      Width = 852
      Height = 24
      Align = alTop
      Caption = 'frToolBar1'
      FullRepaint = False
      TabOrder = 0
      Orientation = toAny
    end
  end
  object Button1: TButton
    Left = 304
    Top = 48
    Width = 75
    Height = 25
    Caption = 'Button1'
    TabOrder = 0
    OnClick = Button1Click
  end
  object frReport1: TfrReport
    InitialZoom = pzDefault
    ModifyPrepared = False
    Preview = frPreview1
    PreviewButtons = [pbZoom, pbLoad, pbSave, pbPrint, pbFind, pbHelp, pbExit]
    StoreInDFM = True
    Left = 64
    Top = 40
    ReportForm = {
      17000000810A000017000000000F0044656661756C74207072696E74657200FF
      09000000340800009A0B000000000000000000000000000000000000000000FF
      FF000000000000000002000B0050616765486561646572310000000000180000
      00F0020000300000003000020001000000000000000000FFFFFF1F0000000000
      0000000000000000FFFF02000B004D6173746572446174613100000000006400
      0000F0020000300000003100050001000000000000000000FFFFFF1F00000000
      0C0066724442446174615365743100000000000000FFFF02000B004465746169
      6C44617461310000000000A8000000F002000024000000390008000100000000
      0000000000FFFFFF1F000000000C006672444244617461536574320000000000
      0000FFFF02000B0050616765466F6F74657231000000000010010000F0020000
      200000003000030001000000000000000000FFFFFF1F00000000000000000000
      000000FFFF000005004D656D6F31001A0000006A000000C00200002200000003
      00080001000000808080000000FFFFFF1F2E02000000000002001500444E493A
      205B49425175657279312E22444E49225D0D32004E6F6D6272653A205B494251
      75657279312E224150454C4C49444F225D2C205B49425175657279312E224E4F
      4D425245225D00000000FFFF0500417269616C000A0000000000000000000000
      00000000020000000000FFFFFF000000000A0B00546672526963685669657700
      0005005269636831001C00000090000000B80200000200000001000000010000
      00000000000000FFFFFF1F2E020000000000010012005B49425175657279312E
      224E4F544153225D00000000FFFF006B0200000A0B0054667252696368566965
      77000005005269636832001C000000C4000000B8020000060000000100000001
      000000000000000000FFFFFF1F2E020000000000010012005B49425175657279
      322E224441544F53225D00000000FFFF00CD0200000100080050696374757265
      31001C0000001C0000002C000000220000000500000001000000000000000000
      FFFFFF1F2E020000000000000000000000FFFF03460700000000010002002020
      100000000000E8020000260000001010100000000000280100000E0300002800
      0000200000004000000001000400000000008002000000000000000000000000
      0000000000000000000000008000008000000080800080000000800080008080
      0000C0C0C000808080000000FF0000FF000000FFFF00FF000000FF00FF00FFFF
      0000FFFFFF00FFFFFFFFFFFFFFFFFFF00BBBBBB00BBBFFFFFFFFF4444FFFFFF0
      0BBBBBBBBBBBFFFFFFFFF4FFF4FFFFF00BBBBBBBBBBBFFFFFFFF4FFFF4FFFFF0
      0BBBB00000BBFFFFFFFF4FFFFF4FFFF00BBBBB0000BBFFFFFFF4FFFFFF4FFF77
      000000000000FFFFFFF4FFFFFFF47777BBBBBBBBBBBBFFFFFFF4FFFFFFFF7777
      000000000000FFFFFFF4FFFFFFFFFF770BBBBB000BBBFFFFFFF4FFFFFFFFFFF0
      0BBBBBBBBBBBFFFFFFF4FFFFFFFFFFF00BBBBBBBBBBBFFFFFFF4FFFFFFFFFFF0
      0BBBB00000BBFFFFFFF4FFFFFFFFFFF00BBBB00000BBFFFFFFF4FFFFFFFFFFF0
      000000000000FFFFFFF4FFFFFFFFFFF0BBBBBBBBBBBBFFFFF44F44FFFFFFFFF0
      000000000000FFFF4FFFFF44FFFFFFF00BBBBB0000BBFFF4FFFFFFFF4FFFFFF0
      0BBBBBBBBBBBFF4FFFFFFFFF4FFFFFF00BBBBBBBBBBBFF4FFFFFFFFFF4FFFFF0
      0BBBB00000BBF4FFFFFFFFFFF4FFFFF00BBBB00700BBF4FFFFFFFFFFFF4FFFF0
      0BBBBBB0BBBBF4FFFFFFFFFFFF4FFFF00000000000004FFFFFFFFFFFFFF4FFF0
      0000000000004FFFFFFFFFFFFFF4FFF00BBBBBBBBBBB4FFFFFFFFFFFFFF4FFF0
      0BBBBB000BBB4FFFFFFFFFFFFFF4FFF00BBBBBBBBBBB4FFFFFFFFFFFFFF4FFF0
      0BBBBBBBBBBB4F77FFFFFFFF77F4FFF00BBBB00000BB44777FFFFFF77744FFF0
      0BBBBB0000BBF7777FFFFFF777FFFFF0000000000000FF77FFFFFFFF7FFFFFF0
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000002800000010000000200000000100040000000000C00000000000
      0000000000000000000000000000000000000000800000800000008080008000
      00008000800080800000C0C0C000808080000000FF0000FF000000FFFF00FF00
      0000FF00FF00FFFF0000FFFFFF00FFFFFCFFF0BBBBBBFFFFCFCFF0BBBBBBFFFC
      FFCF70BBBBBBFFFCFFFC70BBB000FFFCFFFF70BBBBBBFFFCFFFFF0000000FFFC
      CFFFF0BBBBBBFFCFFCFFF0BBBBBBFCFFFFCFF0BBBBBBCFFFFFFCF0BBBBBBCFFF
      FFFCF0BBB000CFFFFFFCF0BBBBBBCF7FF7FCF0000000C77FF77CF0BBBBBBFF7F
      F7FFF0BBBBBBFFFFFFFFF0BBBBBB000000000000000000000000000000000000
      0000000000000000000000000000000000000000000000000000000000000000
      0000000000000000000000000000000005004D656D6F32004800000020000000
      60000000160000000300000001000000000000000000FFFFFF1F2E0200000000
      000100070041644D6553697300000000FFFF0C00417269616C204E6172726F77
      000E000000030080808000000000000000020000000000FFFFFF000000000000
      05004D656D6F3300480100002400000060000000160000000B00000001000000
      000000000000FFFFFF1F2E020000000000010008005B546974756C6F5D000000
      00FFFF0F0054696D6573204E657720526F6D616E001000000000000000000002
      0000000000020000000000FFFFFF00000000040005004C696E65330024000000
      44000000A8020000000000000100080002000000000000000000FFFFFF1F2E02
      0000000000000000000000FFFF000005004D656D6F34007E010000180100002C
      000000120000000B00000001000000000000000000FFFFFF1F2E020203000000
      010006005B54494D455D00000000FFFF0F0054696D6573204E657720526F6D61
      6E0009000000000000000000000000000000020000000000FFFFFF0000000004
      0005004C696E6535002400000014010000A80200000000000001000800020000
      00000000000000FFFFFF1F2E020000000000000000000000FFFF000005004D65
      6D6F35000C02000018010000C4000000120000000B0000000100000000000000
      0000FFFFFF1F2E02000000000001000E0050E167696E61205B50414745235D00
      000000FFFF0500417269616C0009000000000000000000010000000000020000
      000000FFFFFF00000000000005004D656D6F360046010000180100002C000000
      120000000B00000001000000000000000000FFFFFF1F2E0204020A0064642F6D
      6D2F7979797900010006005B444154455D00000000FFFF0F0054696D6573204E
      657720526F6D616E0009000000000000000000010000000000020000000000FF
      FFFF00000000000005004D656D6F37001C000000AC0000004800000012000000
      0900000001000000000000000000FFFFFF1F2E02000000000001001900466563
      68613A205B49425175657279322E224645434841225D00000000FFFF05004172
      69616C000A000000000000000000000000000000020000000000FFFFFF000000
      00FE00000000000000}
  end
  object IBDatabase1: TIBDatabase
    Connected = True
    DatabaseName = 'AdMeSis10'
    Params.Strings = (
      'user_name=SYSDBA'
      'password=masterkey')
    LoginPrompt = False
    DefaultTransaction = IBTransaction1
    IdleTimer = 0
    SQLDialect = 1
    TraceFlags = []
    Left = 160
    Top = 32
  end
  object IBTransaction1: TIBTransaction
    Active = True
    Left = 208
    Top = 32
  end
  object IBQuery1: TIBQuery
    Database = IBDatabase1
    Transaction = IBTransaction1
    CachedUpdates = False
    SQL.Strings = (
      'select * from PACIENTE where DNI < 100')
    Left = 128
    Top = 112
  end
  object frDBDataSet1: TfrDBDataSet
    DataSource = DataSource1
    Left = 128
    Top = 80
  end
  object DataSource1: TDataSource
    DataSet = IBQuery1
    Left = 72
    Top = 88
  end
  object IBQuery2: TIBQuery
    Database = IBDatabase1
    Transaction = IBTransaction1
    CachedUpdates = False
    DataSource = DataSource1
    SQL.Strings = (
      'select * from HClinica where Paciente = :DNI')
    Left = 96
    Top = 160
    ParamData = <
      item
        DataType = ftUnknown
        Name = 'DNI'
        ParamType = ptUnknown
      end>
  end
  object frDBDataSet2: TfrDBDataSet
    DataSet = IBQuery2
    Left = 168
    Top = 88
  end
end
